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APPENDIX A 



ttifndef IO_H 
#define IO_H 
ttinclude <stdio.h> 

/* $Id: io.h,v 1.1 2000/07/11 20:06:20Z drh Exp drh $ */ 
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ttdefine IO__T T 
typedef struct T *T; 



extern T IO_open (const char *file, const char *mode) ; 
extern int IO_close(T stream); 
extern int IO_flush{T stream); 
extern int IO_getc{T stream); 
15 extern int IO_putc{int c, T stream); 

extern int IO_read(char *ptr, size_t size, size_t count, T stream); 
extern int IO_write (char *ptr, size_t size, size_t count, T stream); 



extern T IO_stdin; 
^ 20 extern T IO_stdout; 

extern T 10 stderr; 

H #undef T 

5^ #endif 
25 

Q #define IO_T T 



/^ Standard file I/O */ 

struct file { 

struct T stream; 
FILE *fp; 

}; 

static int fileclose (T stream) { 

FILE *fp = ((struct file *) stream) ->fp; 
return fclose(fp); 

} 

static int fileflush(T stream) { 

FILE *fp = ({struct file *) stream) ->fp; 
return fflush(fp); 

} 

static int f ileread { char *ptr, size_t size, size_t count, T stream) { 
FILE *fp = ((struct file *) stream) ->fp; 
return fread{ptr, size, count, fp) ; 

} 

static int f ilewrite (char *ptr, size_t size, size_t count, T stream) 
{ 
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FILE *fp = ((struct file *) stream) ->fp; 
return fwrite(ptr, size, count, fp) ; 



static struct methods fileio = { fileclose, fileflush, fileread, 
f ilewrite } ; 

static T fileopen (const char *file, const char *mode) { 
FILE *fp = fopen{file, mode) ; 
if (fp) { 

struct file ^stream = malloc ( sizeof ^stream) ; 
if (stream) { 

stream->stream. methods = &fileio; 

stream->fp = fp; 

return (T) stream; 

} 

f close (fp) ; 

} 

return NULL; 

} 

static struct file 

stdinput = { &fileio, stdin }, 

stdoutput = { &fileio, stdout }, 

stderror = { &fileio, stdout }; 
T IO_stdin - (T ) &stdinput , IO_stdout = (T) &stdoutput, IO_stderr = 
(T) Sstderror; 



APPENDIX B 



/* Net I/O 



#ifdef WIN32 
#include <windows.h> 
#include <wininet.h> 



static HINTERNET hSession = NULL; 



struct net { 

struct T stream; 
HINTERNET hFile; 
char buffer [128] ; 
char *bp, *limit; 



static void netcleanup ( void) { 
if (hSession) 

InternetCloseHandle (hSession) ; 
hSession = NULL; 



static int netclose(T stream) { 

HINTERNET hFile = ((struct net *) stream) ->hFile; 
return InternetCloseHandle (hFile) == TRUE ? 0 : EOF; 
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Static int netflush(T stream) { 
return EOF; 



static int netread (char *ptr, size_t size, size_t count, T stream) { 
struct net *ns = (struct net *) stream; 
size_t n = count^size; 
if (ns->bp < ns->limit) { 

for ( ; ns->bp < ns->limit && n > 



0; n— 



*ptr++ = *ns->bp++; 
return (count*size - n)/size; 

} 

if (InternetReadFile (ns->hFile, ptr, n, &count) == FALSE) 

count = 0; 
return count; 



} 



static int httpError ( struct net ^stream) { 
int count; 

char *bp = stream->bp = stream->limit = stream->buf f er; 
if ( ! InternetReadFile ( stream->hFile, stream->bp, sizeof 
stream->buf f er , &count) ) 

return 0; 

stream->limit = stream->buf f er + count; 
for ( ; bp < stream->limit ; bp++) 

if (*bp == && (strncmp(bp, "<title>", 7) 

== 0 I I strncmp(bp, "<TITLE>", 7) = 0)) { 

int code = 0; 



&& isspace (*bp) ; ) 

isdigit (*bp) ) 
(*bp++ - '0') ; 



for (bp += 7; bp < stream->limit 
bp++; 

while (bp < stream->limit && 

code = 10*code + 

if (code 401 && code <= 505) 
return 1; 

return 0; 

} 

return 0; 

} 

static T netopen (const char *file, const char *mode) { 

static struct methods netio = { netclose, netflush, 
netread, nullwrite }; 

HINTERNET hFile; 

if (hSession == NULL) { 

hSession = InternetOpen ( " " , 
INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0); 

if (hSession) ; 

atexit (netcleanup) ; 
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} 

if (strspn(inode, "RrbB") != strlen (mode ) ) 
return NULL; 

hFile = InternetOpenUrl (hSession, file, NULL, 0, 0, 0); 
5 if (hFile) { 

struct net ^stream = malloc ( sizeof ^stream) ; 
if (stream) { 

St ream->stream. methods = &netio; 
stream- >hFile = hFile; 
10 if (httpError (stream) == 0) 

return (T) stream; 
IO_close ( (T) stream) ; 
return NULL; 

} 

15 InternetCloseHandle (hFile) ; 

} 

return NULL; 

} 

^ #else 
20 

"'M static T netopen (const char *file, const char *mode) { 

01 return NULL; 
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#endif 



^ int IO_close(T stream) { 

int code; 

" assert (stream) ; 

code = ( *stream->methods->close) (stream) ; 
^ 30 free (stream) ; 

flJ return code; 

W } 

o 

int IO_flush(T stream) { 
35 assert (stream) ; 

return ( *stream->methods->f lush) (stream); 

} 

int IO_getc{T stream) { 
40 char c; 

assert (stream) ; 

if ( (*stream->methods->read) (&c, 1, 1, stream) == 1) 
return (unsigned) c; 

return EOF; 

45 } 

int IO_putc(int c, T stream) { 
char buf = c; 
assert (stream) ; 

50 if ( (*stream->methods->write) (&buf , 1, 1, stream) == 1) 

return c; 

return EOF; 
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int IO_reaci (char *ptr, si2e_t size, size_t count, T stream) { 
assert (ptr ) ; 
assert (stream) ; 

return ( *stream->methods->read) (ptr, size, count, 
5 stream) ; ^ 

} 

int IO_write (char *ptr, size_t size, size_t count, T stream) { 
assert (ptr) ; 
10 assert (stream) ; 

return ( *stream->methods->write) (ptr, size, count, 

stream) ; 
} 

15 

static int isUrl (const char *path) { 

return strstr(path, "://") !- NULL; 

□ ' 

J-', 2 0 T IO_open (const char *file, const char *mode) { 

^4 const char *s; 

assert (mode) ; 
Sl for (s = mode; *s; s++) 

SJ if (strchr ("AaBbRrWw+", *s) == NULL) 

ffl^ 2 5 return NULL; 

^ if (file == NULL) 

return nullopen ( f ile, mode); 
L else if (isUrl (file) ) 

return netopen (f ile, mode); 

~^ 30 else 

return f ileopen ( f ile, mode); 



y } 
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